Profile of (eval 308)[Sub/Quote.pm:3]

Filename	(eval 308)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 217 statements in 364µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
17	1	1	156µs	183µs	JSON::Schema::Modern::Document::_assert_errors
1	1	1	86µs	121µs	Method::Generate::Accessor::_Generated::BEGIN@24.158
1	1	1	8µs	17µs	JSON::Schema::Modern::Document::BEGIN@7.156
1	1	1	4µs	4µs	Method::Generate::Accessor::_Generated::BEGIN@12.157

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $isa_check_for_errors = ${$_[1]->{"\$isa_check_for_errors"}};
3	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4	1	0s			my $default_for_errors = ${$_[1]->{"\$default_for_errors"}};
5	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
6					package JSON::Schema::Modern::Document;
7	2	34µs	2	26µs	# spent 17µs (8+9) within JSON::Schema::Modern::Document::BEGIN@7.156 which was called: # once (8µs+9µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 17µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7.156 # spent 9µs making 1 call to warnings::unimport
8					# spent 183µs (156+27) within JSON::Schema::Modern::Document::_assert_errors which was called 17 times, avg 11µs/call: # 17 times (156µs+27µs) by JSON::Schema::Modern::Document::has_errors at line 17 of (eval 307)[Sub/Quote.pm:3], avg 11µs/call sub _assert_errors {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@12.157 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 2018;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	3µs			%^H = (
16					);
17	1	29µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.157
18					# END quote_sub PRELUDE
19	17	34µs			do {
20					my $val = exists $_[0]->{"errors"} ?
21					$_[0]->{"errors"}
22	17	16µs			: do {
23	15	33µs	15	27µs	my $value = $default_for_errors->($_[0]); # spent 27µs making 15 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:110], avg 2µs/call
24	107	175µs	2	156µs	# spent 121µs (86+35) within Method::Generate::Accessor::_Generated::BEGIN@24.158 which was called: # once (86µs+35µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($value)) and do { my $ok = 1; for my $i (@{$value}) { ($ok = 0, last) unless (Scalar::Util::blessed($i) and $i->isa(q[JSON::Schema::Modern::Error])) }; $ok } }) or Type::Tiny::_failed_check($isa_check_for_errors, "ArrayRef[InstanceOf[\"JSON::Schema::Modern::Error\"]]", $value, "attribute_name","errors","attribute_step","isa check","mgaca","0","varname","\$self->{\"errors\"}"); $value }; # spent 121µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.158 # spent 35µs making 1 call to warnings::unimport
25	15	26µs			$_[0]->{"errors"} = $value
26					}
27					;
28	17	4µs			exists $_[0]->{"errors"}
29					or Carp::croak(q{Attempted to access '}."errors".q{' but it is not set});
30	17	2µs			$val;
31					}
32					}
33	1	1µs			$$_UNQUOTED = \&_assert_errors;
34					}
35	1	5µs			1;
36
37					;